home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Shareware Plus / Utilities / VideoIN folder / scripting / GetTimedVideoIN Frames.As.TEXT < prev    next >
Encoding:
Text File  |  1996-12-05  |  994 b   |  49 lines  |  [TEXT/ToyS]
  1. on run
  2.     global cuenta
  3.     global t
  4.     set r to display dialog ¬
  5.         "How many frames to grab?" default answer "1" buttons {"Accept"} default button "Accept"
  6.     set cuenta to ((text returned of r) as integer)
  7.     --
  8.     --
  9.     set r to display dialog ¬
  10.         "Time (seconds) between shots?" default answer "10" buttons {"Accept"} default button "Accept"
  11.     set t to ((text returned of r) as integer)
  12.     --
  13.     --
  14.     if cuenta < 1 then set cuenta to 1 as integer
  15.     if t < 1 then set t to 1 as integer
  16.     --
  17.     --
  18.     --display dialog ¬
  19.     --"taking " & (cuenta as text) & " frames (" & ((t as integer) as text) & " )"
  20.     --set t to (t * 60)
  21.     tell application "VideoIN"
  22.         activate
  23.         tell application "VideoIN"
  24.             activate
  25.             make new document
  26.             -- videoin full
  27.             videoin rgb
  28.         end tell
  29.     end tell
  30.     --idle
  31. end run
  32.  
  33. on idle
  34.     global cuenta
  35.     global t
  36.     if cuenta > 0 then
  37.         tell application "VideoIN"
  38.             videoin saveframe
  39.         end tell
  40.         set cuenta to (cuenta - 1)
  41.     else
  42.         set t to 0
  43.     end if
  44.     if t < 1 then
  45.         quit of me
  46.     end if
  47.     return t
  48. end idle
  49.